unit editprdct;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, RzButton;

type
  Teditprdctfrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    txtID: TEdit;
    txtName: TEdit;
    txtAlias: TEdit;
    txtPrice: TEdit;
    Edit5: TEdit;
    txtRemark: TMemo;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  editprdctfrm: Teditprdctfrm;

implementation

{$R *.dfm}

uses includefile;

procedure Teditprdctfrm.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for I:=0 to ComponentCount-1 do begin
    if Components[I] is TLabel then begin
      if 0<>TLabel(Components[I]).Tag then
        TLabel(Components[I]).Caption:=
                GetCaption('editprdctfrm',TLabel(Components[I]).Tag);
    end;
    if Components[I] is TRzBitBtn then begin
      if 0<>TRzBitBtn(Components[I]).Tag then
        TRzBitBtn(Components[I]).Caption:=
                GetCaption('editprdctfrm',TRzBitBtn(Components[I]).Tag);
    end;
  end;

end;

procedure Teditprdctfrm.RzBitBtn1Click(Sender: TObject);
begin
  modalResult:=mrok;
end;

procedure Teditprdctfrm.RzBitBtn2Click(Sender: TObject);
begin
  modalResult:=mrcancel;
end;

end.
